home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / progjrn / pj_6_6.arc / LPI386.ARC / GETTIM.FOR next >
Encoding:
Text File  |  1987-12-29  |  465 b   |  16 lines
  1. *    A GETTIM SUBROUTINE FOR LPI/FORTRAN
  2. *    Author:          M. Steven baker
  3. *    Revision Date:   December 29, 1987
  4.  
  5.        subroutine gettim(IHR,IMIN,ISEC,I100)
  6.        INTEGER*4 IHR,IMIN,ISEC,I100
  7. *      LOGICAL DOSCALL
  8.        CHARACTER*1 REGS(4,5)
  9.        REGS(2,1) = CHAR(44)
  10.        CALL DOSCALL(REGS)
  11.        IHR =  ICHAR( REGS(2,3) )
  12.        IMIN = ICHAR( REGS(1,3) )
  13.        ISEC = ICHAR( REGS(2,4) )
  14.        I100 = ICHAR( REGS(1,4) )
  15.        end
  16.